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* RHLOO012 
* COPYRIGHT INTERDATAs INC. JUNE» 1973 RRLOO0013 
2 Se SOE rk) et a eS eT Ce Nee ee eee eT eee a Ee ee ee meee 
* REVISED BY $ Je PRATT RKLOOO15S 
* RELOO016 
piece lenge cli me gr pep mene ntnaneniennimmananaenetie Eh. 
* SPECIAL VERSION OF REL LOADER FOR RBLOOO4O 
* USE IN SELF=RELOCATING BOOTSTRAP TAPES RBLOOOSO 
aK A FAST=FORMAT VERSION OF THIS PROGRAM 0 00 COR BO 
* IS LOADED AT 80 BY THE FF LOADER RL 00070 
* THIS PROGRAM THEN LOADS M16-FORMAT RELOCATABLE RiLO00080 
ok PROGRAM INTO THE TOP OF MEMORY, aetetnioneb -RBLOOOSD 
* RBL00100 
0000 RO Eau =O RBLOO110 
a  : | ak Se nn ee enn eee a Ht 
0002 R2 EQU 2 RBLOO130 
0003 R3 EQU 3 RBLOO140 
| 2 ae ae ee eee ene ee a eT eee es 
0005 PICK EQU = 5 RBLOO160 
0006 SEQNUM EQU 6 RBLOO170 
see OD NE. gael, a — -RBLOD1LBO 
0008 TwO —EQuU 8 RALOO190 
0009 FOUR —EQU) 9 RRLOO2Z00 
Sh ! ee ck | | i eee eT ee TNE MN eH She | 
0008 8 4 eQu. $11 RELOO2Z20 
000c oe EQU 12 RBLOG230 
| | | ne Meee” * BEE 5 * ___. .. RBLO0240 
OO0E E EQU 14 RRLOO2Z50 
OOOF R15 EQu 15 RBLOO260 
0078 ss gINDY FOU _x*78# 7 RL O0270 
0400 PLENTH EQU xX*4008 LENGTH OF REL LOADER RBLOO280 
0080 ORG x80" LOADED HERE By FF LDR RBLOO290 
"4.00 on TS : _._ RBLO0300 
0400 
0084 CaBo LHI By-1 LOCATE TOP OF CORE RBLOO310 
EE | en ee ee ee re ee ee ee ne ee ey 
0088 48CA TOPS LH CeO(A) . RBL0O320 
0000 . 
——— | rere: NS Fst re ee ee ee ee ee ee 
0000 
0090 4&8DA LH DOA) RBLOO340 
ecsetigiclrcedaacOPe OOo acai insect eae ena : re carte 
0094 4330 BZ TOPF ‘RBLOO350 
OOA4 nz 
CL a | eee ae Sf Poe Pee ee ae See ee Meee SDE SL Ree. OE 2) SONY Dh ee ee Meta 
0000 
009C CAAO AHI AsX*400" RBLOO3T7O 
aise NA = gg a a eee rr nea a 
OOAD 4230 BNZ TOPS RBLO0380 
0088 
_.__ ONA4 CBAOD TOPF SHI A,PLENTH ADJUST FOR LDR=LENGTH = eR BL 00390 
0400 ' 
00A8 4OAD STH A,LOC SET BIAS/LOC FOR RALOO4OO 
ETN ES: | | ee. a a On ee eee es aw 


OOAC 4O0A0 STH A,BIAS REL LOADER RBLOO410 
013C 
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0080 0766 CONT XHR SEQNUMsSEQNUM ZERO SEQ RBLOO420 


00B2 C870 LHI ONE +1 ESTABLISH OTHER . RBLOO430 
pI scant tii gh ae ie ic A ii i aca ahah ahs 
00B6 C88so LHI TWO? PROGRAM-CONSTANTS RBLOO44O 
0002 
ee  . )  )  s  ) 
0004 
0OOBE 0867 NEXT SHR SEQNUM + ONE READ NEXT RECORD . RBL00460 
_____00CO 4129 RFEREC BAL R2,INPUT ene ee eee a eT. See 
01BC 
o0c4y o7cc XHR CoC RBLOO0480 
ee LL) 
OO6A 
OOCA 47CA CKIT XH C »BUFF(A) COMPUTE CHECKSUM RBLOO500 
ic rg ti Small ght enti a a NS 
OOCE OBA8 SHR A«TWO RBLOO510 
0ODO0 4310 BNM CKIT RBLOO520 
ee.) eae ener ee sag ag ken ane =a ete aia ta a Nate 
00D4 C7COo xHI Cy-1 RBLOO530 
FFFF 
____0008 4230 ____.____ BNZ ee eee —______ RBLOO540 
0124 
00DC 4560 CLH SEQNUM +s BUFF RBLOO550 
shop eae nla tae ach cena oc cpt nds ag cg =o esas oe banister 
OOE0 4230 BNE SERR RBLOO560 
0124 
- 0064 Caso Litas LHI PICKeBUFF+4 ADJUST ITEM=POINTFRS = sss RB OSTO 
026A 
00EB CB&4O LHI BYTE 12 RBL0O580 
900C nee ee pg aS nee 
GOEC C550 LOOP CLHI PICK,BUFF+108 TEST IF RECORD DONE RBLOO590 
02D2 
ee ee a: | a ReLoG690-———— 
00BE 
OOF4 48a”5 LH AsO(PICK) RBLOO610 
sts ierninerieend EES me gg em panne 
OOFS 4110 BAL R1eEXTR FETCH COMO ITEM RpL00620 
O1A8 
—____O0FC_OAAA Ea oo = -RBLOO630 
OOFE 48BA LH By JUMP (A) RBLOOG4O 
0104 
—__—_§_0102 03908 — - —-RBL00650 
* RBLOO660 
0104 OOBE JUMP DC NEXT eEND eCHAINe FLIP RBL00670 
0132 ieee ecu hdc ec amped ican hiahellaasialeiacadineainintea iat ine ei 
0124 
0124 
—_——_O10C 9124 | ne SE SN aE 4 de a ne RBL00GB0 
013E 
0124 
cnt le ae ci ie — oa nase ee ap nsec 
0114 0146 DC UNAB eUNRL +OUAB+DURL RBLO00690 
0156 
eee TB = eee ee ee ee eee 
0188 


011C 0124 oC RBCOD+DBCD.sEITMeLABEL RBLOO700 
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0124 
0124 
a ee ae ee ee ae ee a ee ee TT ee Ree a a 
* -— RBLOO710 
0124 C8Bo ERRD LHI BeX*OF? RRLGOT2Z0 
tc ag hah it i csi acess a= aaa Teche ance ecinngppaptabenatincentin me “t 
0128 9A7B WOR ONE*B RBLOOTSO 
012A C200 LPSW #44 RBLOOT40 
Na a a a a poPatia Soe ine Bpeteanaemti ater ots is 
012E 8000 Dc X*8000" »REREC RBLOO75O 
g0co 
yi cae i ai ei a na IN kailangan __ ... _RBLOO76O 
0124 CERR —EQU ERRD RBLOO770 
0124 SERR EQU  ERRD RBLOO7BO 
ee ee Sl es eS ee kee 
0124 LDX EQ@U  ERRD RBLOO8ON 
0124 FLIP EQU  ERRD NOT FOUND IN THE RBRL00810 
0124 REIN CUE QU ERRDUUCCCCCi‘“‘“‘RR AL OAT ABLE UU ROBO 
0124 OF IN EQU ERRD VERSION OF THE RBLOOB30 
0124 RBCD EQU  ERRD REL AND GENERAL RBLOOB4O 
| ae oR RLOBSO. 
0124 ELT EGU ERRD RESULT IN ERROR= RBLOO860 
0124 LABEL EQU- ERRDO STOPS HERE. . RRLOO870 
saree a te a aI a _. RBLOOB8O 
0132 o7CC END. KHR. 22 Ce END OF PROGRAM, RBLOO890 
9134  9ATC WOR. ONEsC DISPLAY 00 AND RBLOO900 
0136 C200 ss EP SW ee ALT ON RESTART? _ _ RRLO0910 
O13A 
013A 8000 pc x*B000" GO TO ORG OF RBLOO920 
_913C 0000 BIAS pc m™g  _. LOADED PROGRAM 0 Lu REL OO93o. 
* RBLOO94O 
O13E 4120 #£LOL BAL  R2eWORD FETCH LOAD-LOC RBLOO950 
paige Se Sa sh NA gh a cn a i emilee ep pais sie pact canting totes Hs 
0142 4ADO AH D, BIAS RBLO0960 
013C 
oR BLOO97O 
o- RBLOO980 
014E 4120 UNAB BAL ~ R2eWORD FETCH ONE HW . RBLOO990 
0190 
OE El ee RBLO1000 
- 0156 4120 UNRL> BAL. R2sWORD- IF REL+ ADO BIAS RBLO1010 
015A 4ADO AH D BIAS RBLO1020 
013C 
—___O15E 48C0 _UNRX LHC Loc FETCH LOAD-LOC ; witiainciccienicsinmaneeinn soe RTA TRS 
P88: 0260 
9162 400C STH 0,0(C) STORE TEXT RBLO1040 
0166 OACB AHR C,.TWO AND BUMP LOC - RiiL01050 
0168 40COo STH C,LOC RB8L01060 
a a a tl pe sie 


Oipe W300, othe) Bd LOOP ayy RBLO1070 
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0170 C8EO DUAB LHI E,UNAB IF FULLWORD: DO RBLO1080 
O14E 
917m 4129 ouaAB1 BAL eR woRD THE SAME FOR FIRST 7 RBLO1090....__ 
0190 
0178 48CO LH C,yLOC HW THEN CALL RBLO1L100 
ca i le sts atch ahi EE sind 
017c 4o0C STH D,O(C) UNRL/UNAB FOR SECOND RBLO1110 
0000 
0180 _oaca AHR. TWO HWe ati RBLO1120.. 
0182 4oCco STH  C,LOC RBL01130 
0260 


a 


0188 C&8&ED DURL LHI EeUNRL RBLO1150 
0156 
—_—__—_918C__4399 8 DyABI ee ee ee, Ltt 
0174 
- RBLO1170 
—. iP S0....68C9 ..£.£_WORD LAR €.POuUR PETE CO AL me cg ete te ei ee tnerel eet tiie airs 
0192 48AS WORD1 LH A,O(PICK) TO REG D, R6LO01190 
0000 
—___ 196 4110 en ES I Rag a eect a i Se ee ee EE TO 
01A8 
019A CDDO SLHL De4 RBLO1210 
ee nee 5)! ae a rn 
O19E O6DA . OHR DA RBLO1220 
G1AG0 OBC7 SHR C,ONE RBLO1L230 
O1A2 4230 BNZ WORD1 i en nee 8 = fs 
0192 
G1A6 0302 BR R2 RBLO1250 
a * --RBLOV1260--—__- 
O1A8 CCA4H EXTR SRHL A,O(BYTE) EXTRACT A 4-BIT RBLO1270 
0000 
—_—_—_91AC—CHAQ—_______ NH] __A,15-—__-_____I FEM FROM «a RELO12890———-— 
OOOF 
0180 oOBa9 SHR BYTE «FOUR RBLO1290 
—mmenscenl de e _ O54 4. BAG 21 ...-._.... RBL01300 
0184 Ca4o LHI BYTE «12 BUMP ITEM-POINTERS RB6LO1310 
OU0C : , 
—__— $1 B8 OA58 —_—_AHR-—___ PI CK -+TwWwo RBLO1320 _._. 
O1BA 0301 BR Ri RBL01330 
* RBLO1340 
a a ee ee 
6002 RTN EQU R2 RBLO1360 
0000 DEV Eau OD RBLO1370 
——§000aq—_-____ aC] _-____ EQU a RBL01380——_. 
0001 DAT EQU R1 RBLO1390 
OOOE CBA EQU E RBLO1400 
go0c ZERO EQU Cc. RB 
* RBL01420 
o1iBCc 8 Oo7CC INPUT XHR ZERO? ZERO RBLOL430 
—__QO1BE  D3D90  — LB DEV,«BINDY FETCH DEVICE eADDRESS RBLOLGGO 
0078 
01C2 C830 LHI R3eSENSE STATUS CHECK ROUTINE ADDRESS RBLO1450 
| aE Sa ee er a I _ 
Gicé 0800 LHR ROWDEV DEVICE. ADDRESS -RBLO1L460 
01C8 0407 NHR ROQ«ONE TTY - SELECT. WRITE RBLO1465 
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=: 


O1CA 4230 BNZ IN RBLO1470 
023A 
~E DEDO Oc DEVsTWRT AND OUTPUT X--ON _-_. — _RBLO148O 
0262 
0102 4240 BTC 4 yey REPEAT IF FSYN RBLO1490 
i a ar a a a a an apse ne 
O1D6 O1F3 BALR R15sR3 CHECK STATUS RBLO1500 
0108 OAdG wD DEV+XON WRITE X-ON RBLO1510 
—___0264. ee sialic 
01DC 4240 BTC 4 exo REPEAT IF FSYN RBLO1520 
0108 
N1F0 DEDO IN] oc UF VeBINDV+1 START DEVICE IN _. .. RBLOL530 
0079 
O1E4 4240 BTC 4,IN1 RBLO1540 
ce EY a a i a a a ee ete ee sh Ia ea eshte Sete“ pie 
O1E8 O7EE XHR CBA.CBA RBLO1550 
O1EA C8AD LHI AC1seLDORSKP SET LDOR-SKP MODE RBLO1560 
ce a eae Meters, Sere des at Sa. 
O1EE O1F3 READIT BALR Ri5eR3 CHECK STATUS R&LO01570 
O1FO 9BD1 ROR DEV «DAT ACCEPT A BYTE RBLO1580 
—__ O1F2 4249 . . .}»}.»}»§»=»©6iBTC.OU6©64dydee? oon at SELLS 6 
O1F0 
01F6 9S9AT1 WOR ONE «DAT RBLO1600 
____O1F8 O30A8 — KBR ACT ce ee ee MK BLOLE1IO 
* RBLO1620 
QIFA C510 LORSKP CLHI DATeX*FO® SKIP LEADER UNTIL RBLO1630 
eer |! | ck | eee : aay ee es AS 
O1FE 4230 BNE READIT A FO IS FOUND. THEN RBLO1640 
O1EE 
______0202 C8AN  NOLDR £~HT Acis¢DATRED SFLECT DATA*READ MODE _.. RL01650 
020A 
‘0206 4300 B READIT START READING RBLO1660 
ee a nea a eg gM a a i i erie 
020A O21E DATRED STB DAT «BUFF (CBA) MOVE A BYTE TO BUFFER RULU1670 
0266 : 
eS, ee ee Te a ea ees ___RBLO16a0 
0210 CS5EO CLHI CBA+s108 AND TEST IF OONE YET. RBLO1690 
006C 
—____0214 4280 . .}.}34 §©§©6©Lff6UmREADTICDT.LUU ot . £ELD1700 
O1EE 
0218 0O80D LHR ROe¢DEV DEVICE ADDRESS RBLOL710 
—____0@1A 0407 #2 ¥}2 . . .. =NHK RO,sONE TY OR HSPTRP 7? = ———-RBLO1715 
021C 0232 BNZR RIN HSPTRP RBLO1720 
O2Z1E DEDO DTRD2 oc DEVeTWRT TTY WRITE RBLO1730 
: 0 26 2 \ a renin a ——— - sets ni Sent tellin. een tb aes se Snepenineres ne srasagmano ‘ 
0222 4240 BTC Hyknt RBLO1740 
O21E 
—__ 0226 01F3 BALR. RiSeRR |... (CHECK STATUS ee RELOLT50O 
0228 DADO wD DEV + XOFF RBLOIL760 
0265 
dase ANI Acree I a i ere ee ees a lee RL ea 
0228 
0250 0302 BR RTN RiBLOL780 
Bc a ea ig yee ie gL TE 
0232 93001 SENSE SSR DEV »DAT SENSE STATUS RBLO1LBOO 


0234 42F0 BTC L5e*=2 RBL01610 
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0232 
0238 O030F BR R15 RETURN RBLO1820 
____023A-—080D—_IN_ LHR _Ro,DEy CE VICE ADDRESS — — DIB Dine 
023C 0409 NHR  kOQ,FOUR MT / CAS ? RBLO1835 
| 023E 4330 BZ IN1 NO RBLO1840 
sip te oS ann por nhac Sle at isc 
0242 DEDO oc DEV+BINDV+1 ISSUE READ CMD RBLO1850 
0079 
ee 92k6 9001 _____SSR___DEV.DAT ee | ae 
0248 4220 BP IN COMMAND IGNORED, RETRY RBLO1870 
023A 
__ogyc p7po CE BUF BLK =~—CUREAD BLOCK RULOTBBO _ 
025C : 
0250 9001 DTRD1 SSR DEV«DAT CHECK STATUS RBLO1890 
9252 Cuig NH at, 2 T FOR OM Perea ae ie Ore nT ee RELO1900. 
0002 
0256 4330 BZ DTRDY RBLO1910 
Ce, ee ae 
025A 0302 BR RTN RBLO1920 
025C 0266 BUFBLK DC BUFF «BUFF 4107 RBLO1930 
O20) a onan: ako 
0260 0000 LOC pC 0 RBL01940 
0262 9809 TWRT DC X*9B8A9" RBLO1950 
0264 9193. xon se X991938 a A ey 
0265 XOFF EQU  xXON4+1 RBLO1970 
0266 BUFF DS 110 RBLOU1980 
ee: _END RBLO1990 
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—, 


“NO ERRORS _ 
a a ca a a a Se 
ACL 000A 
B 0008 


ee ek, a a a a ee Ene eT TE 


BINDV 0076 
BUFBLK 025C 


sepsis NE ON PR ca I i ae ee a tein 


BYTE 0004 
Cc oooc 
een ee ee ae 


CERR 0124 
CHAIN 0124 
sca aN AMO la tecnico pesado ar alta 


CONT 0080 
D 0000 
Sagat ore lah Neca ae ti a tains thet hc nile “acpi =i aineeciennicin mcoapaton 


DATRED 020A 


DUAB 0170 
DUABI 0174 

ee rees +) ees S|. Seneee 6 aeeenaeee Caen 
E OOOE 
EITM 0124 


ee 2) Se) a a . ack sis pee RRERNONEA W8R. 


ERRD 0124 
EXTR = O1A8 


a a a we a eae cam Se 


FOUR 0009 
IN 023A 
IN] CIEO * sienna: ce ee ae: —-— 


INPUT 01BC . 
JUMP... 0104 


LOL O13E 
LORSKP O1FA 
wf OY ee oO 
oo sLOADX: 0080 
| NEXT OOBE 
NOLOR 0202 
a ere se a egy 


. PICK 0005 
PLENTH 0400 


Beat I gg MN sng cing ci oe a aati eo 


Ri 0001 

R15 QOO0F 
gc re I Naa he Tchad chaise Geen 
Weds » RR See Q005 - > Eee Sey : 


RBCO 0124 


lnk, MN a ie eae peer eceettty 5 oer ire elma na 
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REREC 00CU 
REIN 0124 
RIN 9002 a aceninaaaenniis 
SENSE 0232 
SEQNUM 0006 

a a pics ainbiaaeatonatit 
TOPF 00A4 
TOPS 0088 

pine NA —— I arrest anes P see aaa 
TWRT 0262 
UNAB 014E 

ee a ena een cca 
UNRX 015E 
WORD 0190 
hae ne te ee 
XOFF 0265 
XON 0264 

ee | | See nee eee 
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2E aE FELOOO21 
FRONT-END LOADER FELOO0022 
cere. _ _. FEL00023 
* COPYRIGHT INTERDATAe INC. JUNEs 1973 FELOO024 
* FELGO025 
ee ee ee ere ee FEL00026 
eo FEL00027 
* FELOO030 
ssc ictal NEI le RON oan it ind chee ——— tah tat cto ionic __._._-FELO0040. 
* SET LOADER=-BIAS TO TOP=OF-CORE + 1 (FOR 8Ke 2000) FELOO050 
* LOAD THIS TAPE (06+030R02) FELOO060 
eee FELO0070 
* PROCESSOR -IS RESTARTEDs AN 8=-BIT FRONTEND FELOO0B80 
* IS OUTPUT TO BOUTDV WITH THE FAST-FORMAT LOADER FELO0090 
‘ LOCATED IN THE LAST x*240" BYTES OF CORE, selec FELO0100 
* THIS FRONT-END MAY THEN BE COPIED ONTO THE FEL00110 
* FRONT OF A FAST=-FORMAT TAPE BY THE FF PUNCHER. 


FFLO0120 
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.* THIS ROUTINE IS LOADED BY THE 50-SEQUENCE FELO00140 
OOOOR RELOC EGU * FEL00150 
9989. ssSC(CsCiO RG KB eee eee Re ee ee nC i Nee. SS 
0080 D350 LB 5eX'78° FETCH DEVICE-ADDRESS FELOO170 
0078 
___9084 D750 RB 5,B00TLM ss READ BLocK CCL BO 
OOCA 
0088 4240 BTC 4 HALTB CHECK STATUS FELO00190 
a a ee ee eee sitesi ete 
o08C C810 LHI 1,PLOW SET UP REGISTERS FOR FEL00200 
FDCOR 
_ 0090 C830 ss LH OU PHIGH CB ML OOP UCC EL FIO 
FEEBR 
0094 C820 LHI 2el FELO0220 
i pti tins NL cc ingle es cg ta aha ge alld al 
0098 oa744 XHR 444 FEL00230 
009A O361 CHECK LB 6-0(1) GET A BYTE FOR CHECKSUM FELO00240 
a emcee OI a etary 
009E OA46 AHR 446 BUMP THE CHECKSUM FEL00250 
OO0AO C110 BXLE 1,CHECK AND DO IT AGAIN eee FEL00260 
A eatleig laste aces = =4 on Sean 
OOAG C540 CLHI 4,CKSUM FEL00270 
0000 
O0AG6 _CTST FOU #62 OB 
OOAS 4330 BE PSTRT IF ITS OKAYe TRANSFER FEL00290 
FDCOR 
onoAC C550 CLHI 5,2 OTHERWISE, STOP HERE FELOO300 
0002 
00OBO0 4230 BNE HALTB IF OTHER THAN TTY. FEL00310 
90C2 . Si ics A ee ee - Cae re 
00B4 DESO oc 5.TWRTB IF TTY: GO TO WRITE FEL00320 
OOCE 
0088 9056. SR Ug gg Ctst(‘—i‘“‘“‘“‘é OO, AT FOR ZRO FEL00330 
OOBA 42FO BIC 159*-2 STATUS, ANDO WRITE FELO0340 
00B8 
_._OOBE DA5Q sss CWC KORE RUC XQ EE TO STOP IT, FELOO0350 
OOocFr 
ooc2 Ccz00 HALTB LPSW ¥*+4+4 FEL00360 
g0cE Sai See 
00C6 8000 DC X*8000"%ePSTRT FEL00370 
FDCOR 
OO0CA FOCOR BOOTLM DC PLOW,.PHIGH FELOO0380 
FEEBR 
OOCE 9893 TWRTB DC X*'9893" “ FEL00390 
OOCE XOFF RB EQU TWRI +1 FELOOKOO..... 


0000 CKSUM EQU 6 FELOO410 
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* THIS GETS LOADED BY THE BOOTSTRAP LOAUER FELOO430 
FDCOR ORG RELOC=x"240" FELOO44O 
ee EN eee, «| See APRON ES Speen e eer ener area Tee __FELO0450 
0001 R1 EQU 1 FELOU46O 
0002 R2 EQU 2 FEL00470 
se RN aca nk as ce ee ie ee ee et FELOO4BO 
0004 Loc Eau 4 FEL00490 
0005 LAST FEQU 5 FELO0S00 
0006 GOTO EQU 6 = Riemtoee FELOO0510 
0007 SEQNUM EGU 7 FEL00520 
0008 ONE EQU 8 FEL00530 
0009 Two Fou 9 sltedientioes ts FELO0540 
000A A EQU 10 FELO0550 
0008 B EQU 11 FELO0S560 
ee | ee er: 
0000 D FQU 13 FeL00580 
000E E Eau 14 FEL00590 
| ee See SS. ee ae a oe eee nee eee FELOG6QO0 
0078 BINDV EQU x®*7B8F FEL00610 
0104 LENGTH EQU 260 , FEL00620 
Sg atl ee sade ae ig naianis Serr pineteeacigaeieatin tala  FELO0630 
* FELOU640 
FDCOR 0B77 CONT SHR  SEQNUM,SEQNUM CLEAR SEQNUM FELO0650 
EDC2R CABO | LHI ONE e3 SET CONSTANTS 1,2. iy _ FELOO660 
0001 

FDC6R C890 LHI TwOe92 FEL00670 

ee: as ie ms ata ee 
FDCAR 0B78 NEXT SHR  SEQNUM,ONE NEXT BLOCK FELO0680 
FDCCR 0300 INPUT LB D,yBINDV PICK UP DEV NO FEL00690 

ins Sect e — ace Sash ta sa 
FDDOR 0800 LHR =ROeD DEVICE ADDRESS FEL00700 
FOD2R 0408 NHK = RO«e ONE TTY 7? FEL00705 
PL Se 7) ee a! | nee: |: nen aobemeariows _ FELOO710 

FDFCR 
FDD8R 080D LHR = RO»wD DEVICE ADDRESS FELOU720 

—___FDDAR C400 NH ROG cas scale el FELO0725 
oo OOOH: 

_ FODER 4330 2 BZ  IN2 NO = HSPTRP FELO0730 
FDE2R 9DDE IN SSR Dy EE FELOO740 
FDE4R C4E0 NHI EsX"108 WAIT FOR NMTN FEL007S0 

 FDES8R 4330 BzZ IN | FELO0760 
gsi: A RADE QR -2. Ba: 
‘ FEL00770 
0079 
FOFOR D7D0 RB DyFFLM READ A BLOCK FEL00780 
anc ie aan ae Ait cele dtp 5 en a plea lin abecbaedllbosces n= Ta opasmcammaiepp aati anid hae 
FOF4R 4240 BTC 4sERROR CHECK STATUS FEL00790 
FEC6R ; 
Jc EDEBR 8390 — SUM CALCULATE CHEEKSUM FELo0800 
FE4ER 
FDFCR DEDO oc Dy TWRT IF TTY, SET WRITE MODE FELO00810 
FEOOR 90DE  IN1 SSR ~~ -DsE AND OUTPUT XON FEL00820 


FEO2R 4290 PES BTS De ENG | FELO0830 
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FEOOR 
FEO6R DADO wD D,XON . FELOOB4O0 
_____FEEAR Sn a ee 
FEOAR DEDO IN2 OC DBINDV+1 START DEVICE FEL00850 
0079 
ee ee ee Se ee es we . 
FEECR 
FE12R 4110 IN3 BAL RisCHAR FEL00870 
aI a an ep tS a are nee mle een 
FE16R 4330 BZ IN3 SKIP LEADER FELO00880 
FE12R 
wee a Se ee eS SS ee ee |) 
0000 , 
FELER 0AA8 AHR Ay ONE READ 260 CHARS FELO0900 
______FE20R C5A0 LHI oA, BUFF +L ENGTH STARTING AT FIRST Renee 5 Riki L” S| 
FFFOR 
FE24R 4380 BNL IN32 NON-BLANK FEL00920 
RO ee ae ea er ee A a me Se TE ee ee ee ee ee a ere: 
FE26R 4110 BAL RieCHAR FELO0930 
FED4R 
______ FE2CR 4300 ey MS: | aan eee ee ere ae ee ae eee eC ee et See 
FE1AR 
FEZ0R 080D IN32 LHR ROsD DEVICE ADDRESS FEL00950 
____ FE32R 0408 NHR  RO,sONE .HSPTRP 2? UU UF EL 0955 
FE34R 4330 BZ IN4 NO FEL00960 
FE4OR 
CF E3Z8R DEDO ___ 0G _O,STOP STOP DEVICE FELO0970 
FEEOR 
FE3SCR 4300 B CSUM FELO00980 
—__FEUER cbc ics 
FE4OR DEDO IN4 oc DeTWRT IF TTY, SET WRITE MODE FEL00990 
FEESR 
—____FE44R 9DDE __IN5 .___ SSR Op ,6 ss ssCO AN OUT PUT OFF was FELO1000--—---- 
FE46R 4290 BTC 9,INS5 FELO01010 
FEY4&eR 
acon RAR DAG ccsncissinterm—---_ Wi) 4 KORE. a ee ke 
FEEBR : 
* FEL01030 
—___._ FEWER D300 _CSUM _._ LB. Cc, BUFF - COMPUTE CHECKSUM. —___FELOTO40 
FEECR 
FE52R 03B0 LB ByBUFF+1 FEL01050 
ae <5) aE cert rs oC ne i el eA sn 
E56R OACB AHR C.B . FELO01060 
FES8R C8A0 LHI A, BUFF+4 FEL01070 
i Nt reese inne pi ictal Sasa otetnialiasintcaltnaallmecicims . 
FES5CR D3BA CKIT LB BOA) CHECKSUM IS ARITHMETIC FELO01080 
—_ 0000 ' 
eee ee AHR __C,B SSCS OF ALL BYTES EXCEPT. ke vont —PELOTHG0........ 
FE62R OAAB AHR AONE THE CHECKSUM AT BUFF +2 FELO1100 
| FE64R C5A0 CLHI A,BUFF+LENGTH FEL0O1110 
ws FFFOR a a — en lg cd ener 
FE68R 4280 BL CKIT FELO1120 
FESCR 
——_FE6CR 45°90 .§CLH  C,BUFF4) = al (Os. 9 | 
FEEER 


FE7OR 4230 BNE ERROR FELO1140 


FAST FORMAT LOADER PAGE 


FEC6R 
FE74R 4570 CLH SEQNUM s BUFF 
$$$ a 
FE7T8R 4230 BNE ERROR 
FEC6R 


pasar asec nein 


FE7CR C&A0 STORE LHI AyBUFF+4 STORE DATA 
FEFOR 
—___FEBOR_C570— _CLHI SEQNUM,=] wtacsen 
FFFF 
FEB4R 4230 BNE LOOP 
—_________FEggR eee 
FEBBR 4840 LH LOC sBUFF +4 IF FIRST BLOCK 
FEFOR 
aie LH __ LAST, BUFF 46 SET BEG+END.AND 
FEF2R 
FESOR 4860 LH GOTO sBUFF+8 TRANSFER AUDRESS 
_ eee 3... | Senn 
FE94R CBA0 LHI A,BUFF+10 
FEF6R 
_____FE9BR 4ABA Loop LH Beta) STORE HALFWORD 
0000 
FESCR 40B4 STH 8eO0(LOC) 


Fa I een edie aha 


FEAOR OAAY AHR ATWO 
FEA2R 0545 CLHR LOCsLAST STOP WHEN LAST 
____FEA4¥R 43580 BNL END HALFWORD FILLED Pa 7 
FEB6R 
FEABR OAYY9 AHR LOC +TWO 
——_--FE AAR C5A0. 7 CLHI A,sBUFF+LENGTH READ NEXT BLOCK = 
FFFOR 
FEAER 4280 BL LOOP WHEN BUFF EMPTY 
FE9aR ’ = - 2 
FEB2R 4300 8 . NEXT 
FDCAR 
ee, ee eee = 
FEBGR 0866 END LHR GOT0O*.GOTO 
FEBSR 0236 BTCR 3,G0TO : 
___FEBAR O7CC XHE C,C. DISPLAY xXtO0* er 
FEBCR 9AB8C WOR ONE »C FOR NORMAL END 
FEBER C200 HALT LPSW *+4 
FEC2R : 
FEC2R 8000 DC X*8000".A( CONT) 
FOCOR 
I a a a pea coe enna 
FEC6R C8&CO ERROR LHI CaX*F? DISPLAY X*GF*® TO 
OOOF 
-~—— FECAR 9A8C WOR ONE eC SHOW INPUT ERROR 
FECCR C200 LPSW *+4 
FEDOR 
oon_FPE DOR 6000... _.DC .... MPROD BS» AC TNT) a : 
FDOCCR 
* 
__FED4R 9DDE CHAR SSR Def ea, a kt, 
FED6R O8EE LHR EE 
FEDBR 4230 BNZ CHAR 


FELO1150 


FELO1160 


FeLo117o 
FELO1180 


FELO1190 
FeL01200 
FEL01210 
FELO1220 
FELO1230 
FL LO1240 
FELO1250. 
FELO1260 
FELO1270 
FELO1280 


FelLo1290 


FELO13500 
FELO1310 


FfrLO1320 


FELO01330 


-FFLOLS90 


FrLO1350 
FELO1360 


-FELO1370 


FELO1380 
FELO1390 


Fi. L01400 


FELO1810 
FELO1420 


FELO1430 
FELO1440 


-FELOL4ESO 


Ff L01460 
FELO1470 
FEFLO1480 
FLLO1490 


FAST FORMAT LOADER PAGE 6 


FED4R 
FEDCR 9BDB ROR ODeB FEL01500 

Pe ee ee ee eS ee 

OOFF 

FEE2R 0301 BR R1 FEL01520 

este ac ASRS Saree “eee etree nee roe a es 
FEE4R FEECR  FFLM DC BUFF »BUFF +259 FEL01540 

. FFEFR 

OF EEBR 9809. TWRT pc xeogage EB. 
FEEOR STOP EQU  TWRT+1 FELO1560 
FEEAR 9193 XON pc X*9193" FELO1570 

ee S| ns Se eS eae 2,2. ||, oa. 

* FEL01590 

FEECR BUFF os LENGTH FEL01600 

- ___FFEOR er eenre .* aewewi ieee ne. abe 1: an 


BOOT=STRAP FRONT-END PUNCHER 


PAGE 7 


* THIS PUNCHES OUT THE FIRST TWO IN &-BIT FORM 


0000 ORG x*o0% 
——— 18.0... B20 ST AT te PLOW me: aN ie hs dD Se 
FDCOR 
0004 C830 LHI Sel CHECKSUM FOR BOOT LOADER 
— 03 Se es een 
0008 C840 LHI 4 »PHIGH 
FEEBR 
et ss ee | a. — ——-— -—- 
OODE D362 CSG LB 6,0(2) 
0000 
— DE ?..£_OESE... _— |: ee. | aaa rn arccninasinessaeeniaae 
OOE4 C120 BXLE 2,CS6 
OODE 
ee a eS 5 ae ee a nance nes 
O0AG 
OOEC 0310 LB LeX"7AP FETCH BOUTUV ADDRESS 
4 —_—_—_OO7A e ee Res, a piss ere ee aarti 
OOFO 0801 LHR 0,1 DEVICE ANDKESS 
OOoF2 C400 NHI 0.4 MT / CAS ? 
0004 _ pe arte tea, pens paces panic eae a a rape Sear a te et ee 
OOFG 4230 BN2Z BS3 YES 
0128 
ae a 1 en Ff cee Ps kt picsraneasctatoncsetelenees 
0080 
OOFE C840 LHI 4aX*CFe SET UP LIMITS 
lk . - loa lanacinbsorceetacumamnadisicas 
0102 0E10 BSO Oc 1x*7B? START DEVICE 
0078 
eel £06 SIZE AS1 a NL ae ee os Ane eadinhy wai 
0108 42F0 BTC 15¢*-2 
0106 
OE ee ne ae a: eS 
0000 
0110 C120 BXLE 2,881 
a _ . ee — 
0114 C520 CLHI 2¢X'100° IS THIS THE END OF IT 
0100 
—___0116 4380 SNL STOPER OR THE ENO OF THE FIRST SECTION 
O1L4E 
011C C820 LHI 2 yPLOw 
<ipsaininoamattan ORL g ND —— doe Sctcrieninttnroeda aiastaelinniie» tn 
0120 C840 LHI 4,PHIGH 
FEEBR 
Diz24 4300 eee: ewes OR TTB IE paitiecennitsiomdash és 
0106 
0128 9D1F BS3 SSR 1,15 CHECK STATUS 
er te: ) See 1k. | ae ee a 5 aes winasiee denaeiblwndaiciinn 4 
0128 
012E DE10 oc 1 yWFM WRITE A FILE MARK 
cng pi le Seite a Sa pee ores es Be ne eas 
0132 41€0 BAL Ee NMTN WALT FOR NO MOTION 
0156 
ae ee 2 S| a eS || ne 8, ae St en a erm 
0163 
013A 41E0 BAL EyNMTN WA&T FO= NO MOTION 


FEL01630 


FELO1640 
FELO1650 


FEL01660 


FtLQ1670 


. £EFL01680 


FELO1690 


FELO1700 
FeEL01710 


FELO1720 


FELU1730 


FELOL740 


FELOL74S 


FELO1750 


.FELO1L760 


FELO1770 
FELO1780 


FELO179U 
FEL01800 


-FELO1810 


FEL01820 


FEL01830 


-FELO01840 


FELO1850 
FeLO1860 
FELO1870 


Ff tL01880 
FELO1890 


FELO1900 
FFLO1910 
FELO192U0 


FELO01930 


BOOT=STRAP FRONT-END PUNCHER PAGE cs) 


: rr _ sabe iccasnche 
013E O0E10 oc 1+BOUTDV+1 ISSUE WRITE CMO | FEL01940 
caunailhaaloncoslcseesscslaE IOI lament imsie aa tania cen rai <cheteanticni@iaiiteine ehattetane 
0142 D610 we 1,PNCHBT PUNCH BOOT FEL01950 

0164 
0146 D610 _—_WB-—-1, PNCHFF St eT ee eS 
0168 
014A 41E0 BAL  E«NMTN WAIT FOR NO MOTION FEL01970 
% Ch nan sascha i Ta " hia eRcsciadatuaresae 
O14E C200 STOPER LPSW *+4 FELO1980 
0152 
0152 8909 XK BOD STR. ek)! ee 
o0D0 
0156 9D1F NMTN SSR 1,15 CHECK STATUS FELO2000 
et ae.) ee a | a a es). 
0010 
015c 4330 Bz NMTN WAIT FOR IT FELO2020 
ee I a re 
0160 030E BR E FEL02030 
0162 6091 WwFM pc x*Booie FELO2040 
ee ee ee a fe 
0164 0080 PNCHBT DC X*BO'sXtCr? FEL02060 
OOCF 
1168 FDCOR PNCHFF OC PL OWsPHIGH Rar a a ee S| ee 
FEEBR 
| 007A BOUTDV EQU  xX*7AP® FELO2080 
| _FpcoR PLOW FQU CONT ___FELO2090 
FEEBR PHIGH EQU  BUFF-1 FELO2100 
i FOCOR PSTRT  EQU PLOW FELO2110 
— iecpatentdsee a ad —FPELngi30.__. 


BOOT=STRAP FRONT-END PUNCHER PAGE 9 


NO ERRORS 


B 0008 
BINDV 0078 
ee) 2) eee CY, ee eee a ee a ae ee 
BOOTLM OOCA 
BOUTDV OO7A 


BS1 0106 

BS3 0128 
meg en teh OA i i i mL mantis 
Cc oooc 

CHAR FED4R 
+ + CHECK._._ 909A. Pree Sesaeensclodl 


CKIT FESCR 
CKSUM 0000 


ae <i) ceo | a 
CSG OODE 
CSUM FE4ER 

ent LE... _.OOAE. , eRnSESCaEn ah) eget wincmenaninen 
D 0000 
E OOO0E 

a P_..____ BE BGR recat 
ERROR FEC6R 
F OOOF 

ea. § |. SO.) | 7 eee z iat ee _ 
GOTO 0006 
HALT FEBER 

a | 1s fa | |! + ae 
IN FDE2R 
IN1 FEOOR | 

I a eg ptr Lacan sainttaned Al 
INS FE12R 
IN31 FELAR 

es fx. > eee 2 8 _— icchetelesinieai 
ING FE4OR 
INS FE44R 

iii ELE... FDCOR wth 
LAST 0005 


LENGTH 0104 
Loc 0004 Bh Ate tae le 
LOOP FE98R 
NEXT FDCAR 

_—_______NMTN 91 §6 si i a ep a ag pee ee eerste mn 
ONE 0008 
PHIGH FEEBR 

PLOW —FDCOR —— ees en 

PNCHBT 0164 
PNCHFF 0168 

iu aay FDC oR. foci e ai pit ea te ky lecinndiamancy sentient 
RO 0000 
Ri 0001 

ee eee ii: me 3 e aaa eae eee 
R3 0003 
RELOC 0000R 

cn enn A = I castes peal aoa mente oes eo sejotict 


BOOT=STRAP FRONT-END PUNCHER 


STOP FEEQR 
STOPER O014E 
FORE KEEPER —__. 
STR 0000 
Two 0009 
sr ees I I cst eas ac asia insane cnipene oan 
TWRTB OOCE 
WEM 0162 


XOFFB OOCF 
XON FEEAR 
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